﻿Imports Entidades
Public Class frmAñCliente
    Private lista As New List(Of TipoCliente)
    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Me.Close()

    End Sub

    Private Sub frmAñCliente_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lista = miGestion.obtenerTiposCliente
        For i As Integer = 0 To lista.Count - 1
            cboTipoCliente.Items.Add(lista(i).nombre)
        Next
    End Sub

    Private Sub btnAñadir_Click(sender As Object, e As EventArgs) Handles btnAñadir.Click
        If txtNombre.Text = "" Then
            MessageBox.Show("Debe escribir el nombre")
            Exit Sub
        End If
        If txtTelefono.Text = "" Then

        ElseIf Not txtTelefono.Text.Length = 9 OrElse (txtTelefono.Text.StartsWith("9")) AndAlso txtTelefono.Text.StartsWith("7") AndAlso
            txtTelefono.Text.StartsWith("6") Then
            MessageBox.Show("Telefono incorrecto")
            Exit Sub

        End If
        If txtEmail.Text = "" Then

        ElseIf Not txtEmail.Text.Contains("@") OrElse Not txtEmail.Text.Contains(".") Then
            MessageBox.Show("Email incorrecto")
            Exit Sub
        End If

        If txtEmail.Text = "" AndAlso txtTelefono.Text = "" Then
            MessageBox.Show("Debe establecer al menos una forma de contacto")
            Exit Sub
        End If

        If cboTipoCliente.Text = "" Then
            MessageBox.Show("Debe seleccionar el tipo de cliente")
            Exit Sub
        End If

        Dim tipoCliente As New TipoCliente
        For i As Integer = 0 To lista.Count - 1
            If cboTipoCliente.SelectedItem = lista(i).nombre Then
                tipoCliente = lista(i)
            End If
        Next
        Dim cli As New Cliente(txtNombre.Text, txtTelefono.Text, txtEmail.Text, tipoCliente.id)
        Dim st As String = miGestion.añadirCliente(cli)
        If st <> "" Then
            MessageBox.Show(st)
        Else
            MessageBox.Show("Cliente añadido correctamente")
        End If


    End Sub
End Class